function result = is1D(A)
  % Returns 1 (true) if A is effectively one dimensional, i.e., all dimensions, except possibly one,
  % have length one (scalars are here considered to be one dimensional, not zero dimensional);
  % 0 (false) otherwise
  %
  % Author: David Goldsmith, Wash. State Dept. of Ecology, dgol461@ecy.wa.gov
  % Release date: 8/10/2011
    result = any(size(A)==numel(A));